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H 1 ope) 8 MODULE sdlgen ( IDENT = ‘V04-000' ) = 

3 : $098 1 BEGIN 

5 4 0004 1 

: 5 0005 1! 

; § 46) ; SRR R EERE REAR R AAA AAEAAEEEEEEEEEEEEE 

: '® & 

; 8 0008 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 

3 9 0009 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 

: 19 Baio : ALL RIGHTS RESERVED. * 

3 ! * 

; i Boi¢ 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND cortee * 

; 1 001 1 !® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 

3 14 0014 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY * 
3 15 0015 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 

; 16 0016 1 !* OT RSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 

; i id : 7 TRANSFERRED. * | 
3 '® * 
3 19 0019 1 !«* ie a He IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

; a@ 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

$ $3 8053 : :* CORPORATION. * 
4 ‘t ® | 
3 $6 $038 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR > amie its =~°* 

3 24 0024 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL * 

3 25 0025 1 !* * 
; = 0026 1 !* * 
3 a7 QO27 1 eee e eee eee RRR ERATE REE RE 
;: oe 0028 1! 

: 29 0029 1 

: 30 0030 1 !++ 

3 31 0031 1! 

; 32 tT 1 ! FACILITY: : 

Be: 0033 1! Message Compiler 

3 34 0034 1! 

s 35 0035 1 ! ABSTRACT: 
; 0036 1! The Message Compiler translates message definition language 

; iv 0037 1! into object modules. This module is calied by the parser 

F $3 0038 1! to generate an SDL file. 

3 9 0039 1! 

; 40 00460 1 ! ENVIRONMENT: 

s $3 sng ! VAX/VMS operating system, unprivileged user mode. 

s 65 0045 1 ! AUTHOR: 

; «644 Boe 1? Jim Teague, November 1981 

3 6§ 045 1! ca 

:; 46 0046 1! Modified by: 

3s 67 0047 1! 

; & 0048 1! v03-005 GJA0097 : Greg Awdziewicz 10-Aug-1984 

3 3 sin : - Change version # in Listing title to v04-00. 

3 51 0051 1! V03-004 JwT0095 Jim Tea 08-Feb-1983 

; 26 0036 : Fix sdl generator to handle long symbols. 

3 2 0054 1! v03-003 JwT0048 Jim Teague 06-Aug-1982 

3 22 Bnee ' Adjust sdl output. 

- 0057 1! v03-002 BLS0168 Benn Schreiber 2-Apr-1982 
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; eel Oh iege3e V4.0-742 
MSGFIL.SRCJSOLGEN.B32;1 


; 28 0038 } Rename SDLGEN.REQ to SDLGENREQ.REQ 

; 60 060 1! v03-001 JwT0026 Jim Teague 23-Mar-1982 

; 2: Be3 : Make sdigen flexible enough to accept different tags. 
3; © o0e8 1} 

> «664 Bae 1 !-- 

; 065 1 

; 66 0066 1! 

; Of 0067 1! Include files 

; 0068 1! 

; w& BOG? 1 

; ey A : LIBRARY ‘SYSSLIBRARY:STARLET'; ! VMS common definitions 

3 f oars } REQUIRE "SRC$:MSG.REQ'; ! Message common definitions 
; e ta : REQUIRE *SRC$:SDLGENREQ.REQ'; ! Structure for comment blocks 
; re 0359 1 ! Table of Contents 

ees 0360 1! 

; 0361 1 

BR. 036¢ 1 FORWARD ROUTINE ogi 5 

; @& 0363 1 sdl_start_mod, ! Beginnings of an SDL module 
; #8 0364 1 sdl_define_constant, ! Defines a or Literal constant 
; 8 0365 1 sdl—end_mod, ! Endings of SDL module 

z 8 0366 1 sdl_comment, ! Output a comment > 

; «84 0367 1 sdl_put_record; ! Outputs a Line to SDL file 
3; 68S 0368 1 

; 0369 1! , 

.. or 0370 1 ! Macros used within sdigen... 

; 0371 1! 

; O378 1 MACRO 

; 0373 1 > 

; Wi 0374 1 ! Create descriptor for a string 

: = 0375 1 : 

$ Mm 0376 1 DESC ¢ string d= 

3 36 144 : ZCHARCOUNT ( string ), UPLIT BYTE ( string )%, 

; @& 0379 1 ! Concatenate 2 or more strings 

:. 0380 1 

; m 0381 1 CONCAT ( result, source ) [] = 

; “4 Ba$ 1 CHSM ( .source, .(sourcet4), .result(O] + .result(1]); 

: 100 m™ 0385 1 result(0] = .result(0] + .source; 

s 10) Bene 1 CONCAT ( result, ZREMAINING )%; 

; 08 85 1 

, Gseo yt 

: 104 0387 1 ! Literals 

3; 105 388 1! 

; 106 389 1 LITERAL a Drees 

s 107 390 1 system_bit = 1, ! /SYSTEM facility qualifier flag 

; 108 B30; 1 pretix bit = ¢° ' /PREFIX facility qualifier flag 

: 109 335 1 macro Bit = 3, ' /MACRO facility qualifier flag 

: 110 0393 1 dectohex_switch = ZX'FFFF*, | Value at which to switch from 
‘eh 0394 1 ! decimal to hexadecimal 

; ie 0395 1 mod_offset = 1, : column for SDL stmt ‘MO 

. 0396 1 con_offset = 4, ‘ column for SDL stmt ‘'CONSTANT 

3; (116 0397 1 equals_offset = 22, ! column for SDL stmt ‘EQUALS 
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; 995 6398 1 pre_offset = 40 ! column for SDL stmt ‘'PREFIX’’ 

3 1'8 7 cname_offset = 7, : column for constant names 

; 41 400 1 facil_offset = 8, ' column for ‘FACILITY’ 

s 118 401 1 Line Size = 132 ! Length of output record buffer 

3 133 bcos : comment_skip = 5; ! columns to skip for sameline comment 
3 Yel 404 1! 

‘i ¢ 0405 1 ! Storage definitions 

s 3 Rene 1! 

> 124 0407 1 OWN 

3 te 0408 1 

; ; $ 8b ! facilnam_buf : VECTOR(C10,BYTE), 

; 1¢8 ge} : facilnam_dsc : VECTOR[2] INITIAL (0, facilnam_buf), 

s 1$6 §218 1 ! pointer to head of SCB (Sdl Comment Block) 

s 151 0414 1 scb_head, 

; 136 0415 1 

3; (15 Beis 1 ! pointer to most recently created SCB 

; 13 zeie : last_scb, 

, 0419 1! flag to indicate whether SCB's are saved for this module 

; it H4 ac3t : scbs_saved: BYTE INITIAL(false), 

; #139 0422 1 ! variable to keep track of current offset for SDL comment records 
: 140 0423 1 current_offset: INITIAL ( 0), 

3: (141 0424 1 

3 | 0425 1 ! module initialized 7 

3 197 bess ; mod_init: YTE INITIAL( false), 

> «145 0428 1! flag to indicate that comments appear within constant definitions 
: «146 0429 1 comment _const: BYTE INITIAL(false), 

: «147 0430 1 

: 148 0431 1! prefix buffer ; 

3 «(149 0432 1 prefix: VECTORCLine_size, BYTE), 

s 1 0433 1 

3 13) 0434 1 ! symbol name prefix Soece eter : 

3 136 0435 (1 prefix_desc: VECTOR C2] INITIAL (0, prefix), 

; 0436 1 

3: 154 0437 1 ! output buffer ; ‘ 

3s 155 0438 1 output_buffer: VECTOR Cline_size, BYTE], 

: 156 0439 1 

s Tor 0440 1 ! descriptor of output buffer 

s 138 0441 1 output_desc: VECTOR C2) INITIAL (0,output_buffer); 

; 159 bees 1 

: 160 445 1! ‘ 

; «6161 0444 1 ! Strings for use in building SDL output file 

; 196 0445 1! 

; 16 pees 1 OWN 

3: 164 0447 1 

; 165 0448 1 xl VECTOR (2) ; 
: 166 0449 1 US aimee EQUALS %X*,"!xXL"," '))), 
3; 6167 0450 1 ul VECTOR C2 

3; 168 Be2) 1 INITIAL(DESC(ZSTRING(" EQUALS *, ‘!UL"," "))); 
; i$? $26 1 BIND 

: 170 bee 1 ; 

: 71 454 1 blank = $descriptor( ' ' ), 


Page 
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V st 12=808-1 382 9b bias NEGF IL SREISDLGEN B32 24 ’ (1). 
3; I 455 1 dbl_quote = $descriptor( ''" ), 
; 7 128 1 ef = $descriptor( ‘DEF’ ), 
; 174 4 1 start_module = $descriptor( ‘MODULE ' ) 
3; 99 $28 1 const . $descriptor( "CONSTANT J, 
$ 178 459 1 pre = $descriptor( ‘PREFIX * ), | 
) ar 460 1 dollar z $descriptor( '$' ), 
; 178 461 1 tag = $descriptor( ° TAG ‘'""* ) 
; «179 pre 1 comma = $descriptor( ',' ), 
; 180 0465 1 semicolon = $descriptor( ';' ), 
; «(181 0464 1 endmodule = $descriptor( ‘END MODULE;' ), 
; 182 0465 1 facility z $descriptor( 'FACTLITY’ J, | 
ce 0466 1 sdlcomment = $descriptor( ‘/*' ); | 
> 184 0467 1 
; 185 0468 1! 
: 186 0469 1 ! External storage 
; 187 0470 1! 
; «4188 0471 1 EXTERNAL ; 
; «189 0472 1 facility_name : VECTOR, 
; 190 04735 «1 sdli_rab : BBLOCK, ! SDL output file RAB 
; #4191 0474 1 sdl_fab : BBLOCK; ! SDL output file FAB 
; 136 0475 1 
; 9 0476 1! 
: 194 0477 1°! External routines 
3; «6195 0478 1! 
: 196 0479 1 EXTERNAL ROUTINE ’ 
s Wr 0480 1 syntax_error, ' signal syntax error 
; 198 0481 1 rms_error, ! eignet RMS-type error 
: 199 0482 1 LIBSGET_VM: ADDRESSING_MODE (GENERAL), 
; 200 0483 1 LIBSFREE_VM: ADDRESSING_MODE (GENERAL) ; 
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voe"600 1e-8Sp-19be $S:uases Eagar iu seeisbeoenso3204 
;s 2 484 1 GLOBAL ROUTINE sdl_start_mod (facility_desc, facility_number, 
; $8 acs 1 “ “y macro.desc, facility. flags ) = 
> 2046 486 1 
; 205 487 1 !4+ 
; 206 0488 1! 
$ gor 0489 1! 
; 208 0490 1! This routine will (1)produce an SDL module definition, 
: 209 0491 1! (2)dump comments (if any) which agpeere prior to the 
; 210 0492 1! -FACILITY definition in the MSG file, (3)start a constant 
: 211 0495 1! List, and (4) define the facility number. The module name 
: \¢ 0494 1! is determined by either /PREFIX or the facility name. 
3 4 0495 1! The macro suffix is defined only if /MACRO is specified, 
: 214 0496 1! and is ‘DEF’ otherwise. The constant prefix, is defined 
3 £93 0497 1! by /PREFIX or the facility name, depending on which is 
>; 216 0498 1! present. ‘'$"' is added to the end of the constant prefix 
: siz 0499 1! if the /SYSTEM qualifier is present. The tag field will 
> 218 0500 1! always be null, resulting in a tag field of "_". 
Bo BB 
: 551 i. 
3 $s¢ 0504 1! facility_desc: 
; $$ 0505 1! address of descriptor of facility name. 
> 224 0506 1! /PREFIX qualifier is used if present. 
3 @e0 0507 1! 
; 226 0508 1! facility_number: 
; 227 0509 1! facility number passed by value 
; 228 0510 1! 
$s «ee 0511 1! macro_desc: 
; 230 b2ig 1! address of descriptor of string 
3 $33 Belz : specified by the /MACRO qualifier 
3 €ss 0515 1! facility flags: 
> 234 0516 1! Bitvector indicating which facility 
: Zs 0517 1! qualifiers are present 
; 236 0518 1! 
; aor 0519 1! Outputs: 
; 238 0520 1! non 
s @oP 0521 1! 
> 240 0522 1! 
; 241 0523 1 !-- 
3 seg 0524 1 
$ st 0525 BEGIN 
: 244 05 $ 
3 Sci B MAP 
: 246 528 def : VECTOR 
3 247 0529 facility_desc : REF VECTOR, 
3; 248 0530 macro_desc : REF VECTOR 
> 249 0531 facility_flags: REF BITVECTOR; 
; 250 bees 
3; 251 053 LOCAL : 
: 24 0534 head_buf 2 VECTOR Cline_size, BYTE], 
; 0535 head_dsc : VECTOR (2), 
3; 254 238 buffer : VECTOR Cline_size, BYTE], 
: 255 5 mod_desc : VECTOR § ° 
3 26 5 $ buffer_desc : VECTOR . 
: 5 faoout_buf : VECTOR Cline_size, BYTE], 
: 258 540 faoout_desc : vEcToR (2), 
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v04-000 MSGFIL SDOLGEN.B32; (2) | 
: 259 541 suffix_desc : VECTOR (2); 
$ 60 ¢ 
$ 6} Ree? mod_init = true; | 
: 26 0949 facilnam -9sc[0] = .facility_name(0J; 
: 264 248 CHSMOVE (7 facility. namel0], Tfacility. nameC1], .facilnam_dsc(1]); 
: See Osea 5 | 
: 4 Fr Take whatever prefix we receive (facility name or explicit prefix) 
: 269 551 prefix_desc 9) = .facility_desc (0); | 
: 560 22¢ prefix_desc (1) = .facility_desc (1]; | 
: 27 0554 2! 

; ig 0555 ! If prefix supplied, remove ‘''_'’ from the specified prefix 

> 274 0556 ! 

3 $f TEA Hag fectlity. flops Cprefix_bit] 

3 277 0559 prefix_desc [0] = .prefix_desc (0) - 1 

: 278 0560 

BELG | 
: Ay ba63 i If no oretiz. iz, suppl ied. use Np from facility name; 

: 282 0564 : ! y if /SYSTEM specified 

; 283 0565 ! 
HB as | 
; $06 8208 § jf _atectlity flags Csystem_bit] | 
; 288 070 2 (CONCAT ( prefix_desc, dollar )); | 
; 3 b27¢ 3 ff. tectlity. flags Csystem_bit] | 
: 32 0574 2 (CONCAT (facilnam_dsc, dollar)); 

: $37 O87% 5 

> 295 beet ; sdl_put_record ( UPLIT ( DESC (" "))); | 
: $3 0579 current gor tset. = mod_offset; 

; 298 0580 buf fer_desc 92 = mod, offset; 

$ $30 p28) buffer_desc (1) = buffer; 

: $03 0388 CHSFILL ( * °, mod_offset, buffer); 

: 38 at mod_desc [0] = .prefix_desc [0] - 1; 

3; 304 0586 mod desc (1) = .pr fix. ~desc (1); 

: a2 0587 suffix_desc f j= 

: 88 b2e8 suffix_desc (1) = def (1); 

; 308 0590 IF We saat Cmacro_bit] 

; +4 333) THEN 

: 311 $398 If /MACRO name is spect tied. use it for the module name after 

3 1 b23¢ i first removing the $ (the $ is added below) 

: YF Bea2 } There will be no DEF suffix, either. 

: 318 0897 BEGIN 


ee . i 4 
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BSB 


: 3 0298 suffix_de § C0] = 0; H 
; oi 0599 mod_desc } = .macro_desc fo) - 1; : 
; 318 bent mod_desc [1] = .macro_desc [1] + 1; : 
$s aly 601 END; : 
: 0 et : 
: 1 P 060 CONCAT ( buffer_desc, : 
; ¢ P 0604 start_module, | 3 
; P 0605 dollar, : 
: 4 P 208 mod_desc, : 
3 5 P 060 sufTix_desc, ; 
: g pone semicolon ds ; 
3 8 sts sdl_put_record ( buffer_desc ); | 3 
; 4 0611 sdl-put_record ( UPLIT T DESC (" '))); 3 
: 0 Bei§ 3 
; 33! 061 ' 3 
; 338 0614 ! Set ” and output a header indicating that this file was created by : 
3 337 6 OF ESSAGE and the time created. : 
3; S22 Sols head_dsc [0] = Line_size; | ; 
; 336 0618 2 head_dsc [1] = head_buf; : 
s Sov 0619 : 
; $35 O63 sdl_put_record( sdlcomment ); ; 
; 340 P 06 é SFAOCUPLIT(DESC('/* This SDL File Generated by VAX-11 Message V04-00 on !%D")), : 
; 341 08s head_dsc, head_dsc, 0); : 
3 ne 0624 3 
; 36 0625 2 sdl_put_record ( head_dsc ); 3 
> 344 0626 2 sdl_put_record ( sdlcomment ); 3 
; 345 0627 § : 
; 346 0628 ! | 3 
; «347 0629 ! If comments were saved, dump them NOW : 
; 348 0630 ! 3 
; 349 0631 IF .scbs_saved 3 
:; 390 063 THEN : 
: 331 063 BEGIN | : 
3 6 0634 3 LOCAL : 
; 2 0635 ; com_desc: VECTOR (2) ' pemnerere comment descriptor 3 
3 354 0636 CBLOCK: REF BLOCK L,BYTE], ! For Sdl Comment Blocks : 
: 355 0637 LAST_CBLOCK: REF BLOCK C,BYTE); ! For freeing vm : 
: 356 0638 3 
; 326 0639 : ; : | : 
s 338 0640 !' Set comment block ptr to first in List : 
: 4 0641 } : 
: 0 064 CBLOCK = .scb_head; : 
: $0! 064 3 
3 $ pete ! 3 
_.. 5 ! As long as there is a forward Link... : 
; 364 0646 : z 3 
; 5 beee WHILE .CBLOCK NEQ 0 DO | | : 
; r$] 648 3 
; 6 649 4 BEGIN : 
; 650 4 LOCAL 3 
; 44 651 4 status; 3 
3 0 636 4 ; 
3; 371 0653 4 com_desc £03 = .CBLOCK PSCBSB_CLEN}: ' Set up temporary 3 
: 372 0654 4 com_desc [1] = CBLOCK CSCBST_CTXTJ; : descriptor 3 
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$FAO ( buffer_desc, faoout_desc [0], faoout_desc, .facility_number); | 
sdl_put_record ( faoout_desc); 


; 373 0655 4 : : 
3 a O63? ? sdl_put_record ( com_desc ); ! Output comment Line : 
3 r 228 ? LAST_CBLOCK = .CBLOCK; ! Save block address : 
Ps | . 
; 378 3660 & CBLOCK = .CBLOCK CSCBSL_NXTSCB); ! Move ptr forward : 
; 379 0661 4 : 
; 380 bo8s 4 ' ; 
; 3 R997 ? ; Free vm for Last comment block : 
; HY 0665 5 IF NOT ( status = LIBSFREE oVACanG? (SCBSE LENGTH + .com_desc ([0]), : 
F 84 pees 5 LAST_ BLOCR ) : 
5 pee 66/7 4 ; 
3: 386 0668 4 SIGNAL ( .Status ); : 
: 387 0669 4 | ; 
: 388 0670 3 END; 3 
: 389 0671 END; | 

3 $e 67 

: 391 67 current_offset = con_offset; 

: 338 0674 but fer desc C0] = con_offset ; | 

; #39 0675 FILC (* ",con_offset, buffer); 

3: 394 0676 

: 395 P 0677 2 CONCAT ( buffer_desc, | 

; 396 067 const ); 

s 397 0679 

; 398 0680 sdl_put_record ( buffer_desc ); 

: 399 0681 

; 400 068 current_offset = cname_offset; | 

: 401 068 buffer desc (0) = facil_offset ; 

: 3 eet CHSFILC (¢ » pre_offset, buffer ); 

: 404 P 068 CONCAT ( buffer_desc, 

; 405 P 068 quote, 

3: 406 P 0688 facility, 

; 407 0689 fee quote da | 

; 408 0690 

3 rt ed buffer_desc [0] = MAX ( equals_offset, .buffer_desc(0)); 

> «6411 P $698 CONCAT ( buffer_desc, 

: aig 0694 ul ); 

: 41 0695 

; ai3 Ree buffer_desc [0] = MAX ( pre_offset, .buffer_desc(0]) ; 

3 218 P Beas CONCAT ( — desc, 

3; «641 P 06 

: 41 P 0700 Abt. quote, 

: 41 P a} facilnam_dsc, 

: 4 P 07 § = quote, 

i 4 208 tag : | 

: 6 5 faoout_desc fo} = Line_size; 

3 ? faoout_desc = faoout_buf; 

: 42 

; 4 

; 4 

; 4&4 0 


DONO ULSEWN OOO 
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- TITLE ephgen 
IDENT \V04-000\ 


-PSECT $PLITS,NOWRT,NOEXE,2 


20 4C 58 21 58 25 20 53 4€ 41 55 51 45 20 Q0000 P.AAA: .ASCII \ EQUALS &%X!XL \ 
20 4C 55 $3 20 33 4C 41 55 51 45 20 BAO E P.AAB: .ASCII \ EQUALS !UL \ 
QO1A P.AAD: .ASCII \ \ 
00018 -BLKB 1 
00000001 BOO ss P.AAC: .LONG 1 
— 00 -ADDRESS P.AAD 
22 00024 P.AAF: .ASCII \'\ 
00025 -BLKB 3 
00000001 00028 P.AAE: .LONG 1 
00000000" 0002¢ «ADDRESS P.AAF 
46 45 44 00030 P.AAH: .ASCII \DEF\ 
00033 -BLKB 1 
00000003 00034 P.AAG: .LONG 3 
00000000" 00038 -ADDRESS P.AAH 
20 45 4€ 55 44 4F 4D O0003C P.AAJ: .ASCII \MODULE \ 
00043 -BLKB 1 
00000007 00044 P.AAI: .LONG 7 
at hae 00048 «ADDRESS P.AAJ 
54 4E 41 54 53 4E 4F 43 QOO04C P.AAL: .ASCII \CONSTANT\ 
464 00054 P.AAK: .LONG 
0000000" 00058 -ADDRESS P.AAL 
20 58 49 46 45 52 50 booes P.AAN: .ASCII \PREFIX \ 
006 -BLKB 1 
00000007 00064 P.AAM: .LONG 7 
00000000" 00068 -ADDRESS P.AAN 
24 QO06C P.AAP: .ASCII \$\ 
0006D -BLKB 3 
00000001 00070 P.AAO: .LONG 1 
00000000° 00074 -ADDRESS P.AAP 
22 22 20 47 41 54 20 0907F P.AAR: .ASCII , TAG '"'\ 
00000007 00080 P.AAQ: .LONG 7 
00000000° 00084 -ADDRESS P.AAR 
2c te P.AAT: .ASCII \,\ 
0 3 
00000001 Q008C P.AAS: .LONG 1 
00000000" 00090 -ADDRESS P.AAT 
3B 00094 P.AAV: .ASCII \;\ 
BOR . 3 
hb 098 P.AAU: .LONG 1 
tae 2 009C -ADDRESS P.AAV 
38 45 4C 55 44 GF 4D SF 44 4E 4 QOAO P.AAX: .ASCII \END_MODULE;\ 
QOAB -BLKB 1 
0080008 QOAC P.AAW: .LONG 11 
0000" 44 «ADDRESS P.AAX 
59 4 B4 P.AAZ: .ASCII \FACILITY\ 
0000000 OBC P.AAY: .LONG 8 


iH 


6C 69 46 20 4C 


20 79 62 20 64 
20 6E 6F 20 30 
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an 
NMWAO 
o—moo 
Onruouw 
Mouse 
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oo 
oo 
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00000000 
00000000" 


00 


00000000 
00 
00 


00000000 
00000000" 
00000000 

0 OOF 
Ss 


000000C 
0000000° 
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43) ha P.AAZ 
P.ABB: .ASCII \/*\ 
-BLK = 


v0vo 


«LON 
"ADDRESS P. ABB 
-ASCII 


P.ABD: Ir \ \ 
-BLKB 3 

P.ABC: .LONG 1 
«ADDRESS P.ABD 

P.ABF ASCII \ \ 
-BLKB i 


:LO 
“ADDRESS P 


«ASCII \sage V04-00 on !2%D\ 
-BLKB 
P.ABG: .LONG 8 
«ADDRESS P.ABH 
-PSECT SOWNS,NOEXE,2 
00000 FACILNAM_BUF : 
-BLKB 


QOOOA -BLKB 
QOO0C FACILNAM_DSC: 


0 
00010 - ADDRESS FACILNAM_BUF 
00014 SCB_HEAD ‘as xe 


00018 LAST_SCB: 
0001C SCBS_SAVED: 
BYTE 


0001D -BLKB 
00020 CURRENT_OFFSET: 


00024 MOD_INIT: 
00025 COMMENT _CONST: 
90026 “BLKB 
0028 PREFIX :BLKB 
OOOAC PREFIX. DESC 


. LONG 
00080 ADDRESS PREFIX 
00084 OUTPUT BUFFER: 132 


LK 
00138 OUTPUT DESC: 
13 vpeeeee OUTPUT _BUFFER 
140 XL: LON 4 
144 fpeaeee P.AAA 
148 UL: «LON 
14C€ “ADDRESS P.AAB 


10 


32 


o -NOoO Oo Oo OWO FF S 


ABF 
P.ABH: .ASCII \/* This SDL File Generated by VAX-11 Mes\ 


Be Be Oe Oe Be Be Be Oe Se Oe Oe Se Be Se Se Se Se Se Be Be SH Be Be Se Se See Se Se Ge Ge Se Se Se Ge Se Se Se ee Se Se Se Se Se Se Se Se ee ee Se Se Fe Se Se Se eeae 


Soi 

A 
OFFC 00000 
5B 000000006 00 9€ 00002 
5A QO00v CF 9E 00009 
59 Q000' CF 9E BO 008 

58 rte CF 9E 0001 
SE FESC CE 9E 00018 
18 Ag 01 90 0001D 

69 Q000G CF D0 BR bse 
04 B9 0000G ODF 00006 CF 28 00026 
50 04 AC 00 it 
QOAO C9 60 7D 00033 
06 10 BC 02 £1 00038 

QOAO C9 D7 0003D 

Ww OY poe 

24 10 BC 01 €1 00043 
50 QOAO 8C9 OOAS C9 C1 00048 

60 04 = B8 68 28 00050 

QOAO (C9 68 CO 00055 
OD 10 «BC 01 €1 QOO5A 

S$ ou BB Be 
ee 

64 A8 YF 0006C 

6A 01 fe Oper 

14 «AY 1 00 00072 
QOAS CE 1 po 0076 

QOAS CE 00B4 3 sit 

om ce AY tH Bie 
mm 8 Bie 
14 AE 8 AR D0 QO9A 

10 BC 03 €1 0009F 

AE D4 Q00A4 


15 
~3e0~ 130) 96 11 38 X-11 Bliss-32 V4.0-74 
-$ep-1984 12:46 MSGFIL® SRCIJSDLGEN.B32; 
BLANK= P. AAC 
DBL_QUOTE= P. AAE 
Fz P.AAG 
START_MODULE= P.AAL 
CONST= Pp. AAK 
PRE= - AAM 
DOLLAR= p-AAO 
COMMA= P.AAS 
SEMICOLON= “AA 
ENDMODULE= P. AAW 
SOL COMMENT= PABA 
.EXTRN FACILITY =NAME SDL_RAB 
~EXTRN SDL xX_ERROR 
EXTRN RMS “ERROR wieetes T VM 
-EXTRN LIBSFREE_VM, SYS$FAO 
PSECT $CODE$,NOWRT,2 
.ENTRY SDL START -MOD Save R2,R3,R4,R5,R6,R7,R8,- 
OVAB SYS$FAO, R11 
MOVAB SDL_PUT RECORD, R10 
MOVAB FACTYLNAM_DSC, 
MOVAB 0 LAR, RS 
MOVAB =452(SP), SP 
MOVB 1, MOD_INIT 
MOVL.  FACILITY_NAME, FACILNAM D 
MOVC3 FACILITY "NAME, FACILITY. ONAMES4, 
aFACIL DSeshe 
MOVL FACILITY_BESC, 
MOVG (RO), PREFIX DESC 
BBC #2, QFACILITY_FLAGS, 1$ 
DECL § PREFIX_DESC 
BRB 2$ 
1$: BBC @FACILITY_FLAGS 
ADDL3 PREFIX_DESC+4> BREE Ix: DESC, RO 
MOVC3 DOLLAR? @DOLLAR+4, (RO) 
ADDL2 DOLLAR, PREFIX Desc 
2$: BBC #1, aFACILITY TFLAGS 3$ 
ADDL3 FACIL bScee FACILAAN _DSC, RO 
ve3 DOLLAR, SDOLLAR+4, (RO) 
ADDL2 DOLLAR. FACILNAM_DSC 
3$: PUSHAB P, 
CALLS ui. SDL_PUT_RECORD 
MOVL + CURRENT OFFSET 
MOVL a 
MOVAB BUFFER. ER. BUFFER _DESC+4 
MOVB 
SUBL3 #1 “PREF DESC, aft? DESC 
MOVL PREFIX DEST+4, MOD_DESC+4 
MOVL #3 at oe “me 
MOVL Real SUFFIX DESC+4 
BBC FACILITY“FLAGS, 4$ 
CLRL SURFIX. DESC 


0484 


(029 00 09 09 09 CO 


Pathe storey a} 


Be Oe Oe Oe Be Be Be Be Oe Be Se Se Se Ge Se BA Fe Se Se Se Se Se Se Se Se Ge Se Se Se Se ae Se Se Se Se Se ee Se Se Se Se Se Se Se Se Se Se esse Se Se Se ee Fete seas 
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16-Sep-1984 02:11: AX-11 Bliss-32 V4.0-74 
90% °500 10-88-1382 0b aioe EMSGFIL SRe SDLGEN.B32; 
A? MOVL. MACRO_DESC, RO 
OAC CE 20 " Of 28 Sh SUBL3 #1, (RO), MOD_DESC 
0B0 04 Ad 1 ¢i 00081 ADDL3 #1, 4(ROS, MOB_DESC+4 
4 OOAS CE OOAS CE C1 000B8 4$: ADDL3 BUFFER_DESC+4, ~BUFFER_DESC, RO 
60 D8 «BS D4 «OA 000 MOVC3 START_MODULE, @START_MODULE+4, (RO) 
OOAS CE D4 ABC C6 ADDL2 START“MODULE, BUFFER DESC 
50 00A4 «OC OOA8 CE C1 CC ADDL3 BUFFER_DESC+4, BUFFER DESC, RO 
60 04 SS 6 : 0004 MOVC LLAR; @DOLLAR+4, (RO) 
O0AS CE 68 C0 00009 ADDL2 DOLLAR. BUFFER. DESC 
50 O0OA4 CE QOOA8 CE C1 OOODE ADDL3 BUFFER DESC+4, BUFFER_DESC, RO 
60 00B0 OE OOAC CE 8 O00E6 move MOD_DESC, aMob DESC+4; (ROS 
50 yy i: tN tf a itd ADDL3 BUFFER_DESC+4, BOFFER_DESC, RO 
60 14 BE 10 AE 28 000FD MOVC3 SUFFIX“DESC, @SUFFIX Besc+4, (RO) 
O0OAS CE 10 AE CO 00103 ADDL2 SUFFIX"DESC. BUFFER DESC 
50 O0AG CE 0OA8 CE C1 00109 ADDL3 BUFFER DESC4+4, BUFFER DESC, RO 
60 2c «BS 28 3 28 00111 MOVC3 SEMICOLON, @SEMICOLONT4, (RO) 
OOAS CE 28 «AB CO 00117 ADDL2 SEMICOLON, BUFFER_DESC 
00OAS CE 9F 0011D PUSHAB BUFFER DESC 
6A 01 FB 00121 CALLS #1, SDC_PUT_RECORD 
70 AS 9F 00124 PUSHAB P.ABE 
6A 01 FB 00127 CALLS #1, SDL_PUT_RECORD 
FF74 CD 84 8F 9A 0012A MOVZBL #132, HEAD BSC 
FF78 CD FF7C CD 9E 00130 AB HEAD BUF, READ_DSC+4 
58 A& 99F 00137 PUSHAB SDLCOMM 
6A 01 FB 0013A CALLS #1, SDL_PUT_RECORD 
7E D4 0013D CLRL. Ss = ¢§P) 
FF74 CD 9F 0013F PUSHAB HEAD_DSC 
FF74 CD 9F 00143 PUSHAB HEAD~DSC 
00B4 C8 9F 00147 PUSHAB P.AB 
68 04 FB 00148 CALLS #4, SYSSFAO 
FF74 CD 9F 0014 PUSHAB HEA 
6A 01 FB 0015 CALLS #1, SDL_PUT_RECORD 
58 AB 9F 0015 PUSHAB SDL T 
6A 01 FB 00158 CALLS #1, SDL_PUT_RECORD 
40 10 Ad €9 0015B BLBC SCBS SAVED, ~6$ 
52 08 Ad DO 0015F MOVL SCB_READ, ¢€BLOCK 
ag HS abige oS Gut gee 
08 AE 04 A2 9A 00167 MOV ZBL 4(CBLOCK) COM_DESC 
OC AE 05 A2 9E 0016C OVAB 5(R2), COM_DEST+4 
08 AE 9F 00171 PUSHAB COM_DESC 
6A 01 FB 00174 CALLS #1, SDL_PUT_RECORD 
04 =#A 52 0D 177 MOVL CBLOCK, LAST CBLOCK 
5 62 D 17B MOVL (CBLOCK), CBCOCK 
04 AE 9F OO17E PUSHAB LAST CBLOCK 
04 AE OC AE - 0 c i } ADDL. #5. COM_DESC, 4(SP) 
A 
CALLS #2, LIBSFREE_VM 
a o? EB 1 BLBS STATUS, 
DD 00194 PUSHL STATUS 
00000006 00 01 FB 00196 CALLS #1, LIBSSIGNAL 
. 4 11 00190 BRB 5$ 
16 Ad 4 DO O019F 6$: MOVL #4, CURRENT_OFFSET 
Soee te 020202 ' DO oi aa MOVE Tea v6D Bes BUFFER 
SS 
50 bad tf Spas CE C1 00181 ADDL3 BUFFER Est +e- BUFFER_DESC, RO 


eee 
Pete Se Se Se Se Se Se Se Se Se Fe Se Ge Se Se Ge Se Ge Se Fe Se Ge Se Se Ge Ge Ge Ge Se Se Se Se Se Fe Fe Fe Fe Fe Fe Se Se Be Fe Fe Be Ge Fe Se Se Be Se Se Be Se Be Be 


MKTOMMOOWZ BK ACHR IO MMOOWZ SES KOK TOMMOOWOZ ES KCK TO M™MOOOZ Er ACH TOMI 


16 

16-Sep-1984 211: AX-11 Bliss-32 V4.0-742 Page 13 

1a-sep-19 4 REL: EMSGFIL SRe SDLGEN.B32;1 v 02) 
60 £8 88 £4 ag 28 0189 MOVC3 CONST, @CONST+4, (RO) : 
OOAS CE E4 OA 5 1BF ADDL2 CONST. BUFFER_DESC ; 

OOAS CE OF 1¢3 PUSHAB BUFFER DESC + 0680 
6A 1 F 1¢ CALLS #1, SDC_PUT_RECORD : 

oon te O68 > 109 SOL ooh’ BUFFER Desc : O88 

20 6E <i 09 Be 0105 MOVES +0. (SP), 5 #40, BUFFER + 0684 

56 B AB 7D 001DD MOVO  DBL_QUOTE, R6 + 0689 
50 00A4 ce 00a E cI 0161 ADDLS BUFFER_DESC+4, BUFFER_DESC, RO ; 
60 6 6 8 0169 MOVE RS, (R7), (ROS : 
OAS CE 6 ¢ OiED ADDL BUFFER_DESC ; 
50 OaG = CE 00A8 cE ci 1F ADDL3 BUFFER_DESC+4, BUFFER_DESC, RO ; 
60 50 «BS 4C AS 28 OO1FA MOVC3 FACILITY, @FACILITY+4, (ROS : 
00A4 «CCE 4C AaB CO 00 00 ADDL2 FACILITY, BUFFER. DESC : 
50 00A4 cE 00A8 cE ci 0206 ADDL BUFFER DESC+4, BOFFER_DESC, RO ; 
60 6 6 28 0020 MOVC 6, (R7), (RO : 
OOAS «CE 56 CO 0021 ADDL2 6, BUFFER_DESC ; 

50 OOA4 ce DO 0021 MOVL BUFFER_DEST, RO + 0691 
16 50 D1 0021C CMPL ~=s RO, #22 : 
03 18 O021F BGEQ = 7$ : 
50 16 00 00221 MOVL #22, RO ; 
00a4 CE 50 D0 00224 7$: MOVL. RO, BUFFER_DESC : 

50 O0A4 CE 00A8 CE C1 00229 ADDL3 BUFFER_DEST+4, BUFFER_DESC, RO > 0694 
60 0140 09 013c }«6C9— 28 00231 MOVC3 UL, aul+4, (RO) ; 
00AS CE 013¢ «6 ¢9—s C0 002 9 ADDL2 UL, BUFFER_DESC F 

50 00A4 CE 00 00240 MOVL BUFFER_DEST, RO + 06%6 
28 50 D1 00245 CMPL = RO, -#40 ; 
03 18 00248 BGEQ : 
50 28 DO 0024A MOVL #40, RO : 
00A4 «(CE 50 DO 0024D 8$: MOVL. RO, BUFFER_DESC ; 

50 00A4 CE 00A8 CE C1 00252 ADDL3 BUFFER_DESC+4, BUFFER_DESC, RO : 0703 
60 F8 «BB FL AS 26 OO25A MOVC3 PRE, aPRE+4, (RO) ; 
00A4 CE F4 AB CO 00260 ADDL2 PRE, BUFFER_DESC : 
50 00AS = CE 00OA8 CE C1 00266 ADDL3 BUFFER_DESC?4, BUFFER_DESC, RO : 
60 67 56 28 0026E MOVC3 ‘ ), (ROS : 
00A4 CE 56 «C0 00¢7¢ ADDL2 6, BUFFER_DESC 
50 00AS CE 00A8 CE (C1 0027 ADDL3 BUFFER DESC+4, BUFFER_DESC, RO ; 
60 06 B89 69 28 0027F MOVC3 FACILNAM_DSC, @FACILNAM DSC+4, (RO) : 
QOA4 CE 69 CO 00284 ADDL2 FACILNAM~DSC. BU E : 
50 00A4 cE OOA8 CE C1 00289 ADDL3 BUFFER_DESC+4, BUFFER_DESC, RO ; 
60 4 56 28 00291 MOVC : ), (ROS ; 
QOA4 CE 56 CO 00295 ADDL2 R6, BUFFER_DESC : 
50 00AS CE 00A8 cE cI 0029A ADDL3 BUFFER_DEST+4, BUFFER_DESC, RO : 
60 146 BS 10 AS 28 00 Ag MOVC3 TAG, aTAG+4, (RO) ; 
00A4 CE 10 a8 £0 O2A ADDL2 Tag BUFFER DESC : 

18 AE 84 8F 9A 00 Ae MOVIBL #132, FAOOUT DESC > 0705 

1c AE 20 AE 9E 0028 VAB_ FAOQOUT_BUF, FAOOUT_DESC+4 : 0706 

08 AC DD 00288 PUSHL FACILITY NUMBER : 0708 
1¢ AE 9F 002BB PUSHAB FAOOUT_ ; 
20 AE 9F 00 BE PUSHAB FAQOUT~DESC ; 
00B0 CE 9F 002C PUSHAB BUFFERDESC : 
68 04 FB 8 7} CALLS #4, SYSSFAO 5 

18 AE OF ¢ PUSHAB FAOOUT DESC : 0710 
6A 1 FB 02CB CALLS #1, SDC_PUT_RECORD ; 

50 1 00 O02CE MOVL #1. RO : 0712 

04 00201 RET : 0714 
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; Routine Size: 722 bytes, Routine Base: $CODE$ + 0000 


D 16 
V0%=600 1eo$ep=1986 13:46:28 EmSGrILeSRESSDLGEN- B32: 


H 4 ¢ AF ] GLOBAL ROUTINE sdi_define_constant ( name_desc, value, msg_flag, tparse) = 
3; 4 HS 1 !e4 

; 4 718 1! 

3 2 a! } This routine outputs a constant definition as follows 
3 rr 4 1 : symbol_name EQUALS symbol_value PREFIX prefix TAG ‘"’ 
3 44 07 g ‘| This routine is capable of handling message symbols or 
3; 44 0724 1! literals. In the latter case, it checks to be sure that 
3; 444 + oe the Literal name is consistent with the MODULE statement. 
> 445 7 8 , 3 If there are inconsistencies, a warning is issued and the 
> 446 7 1! Literal is omitted. 

3; 447 0728 1! 

: 448 0729 1! 

3; 449 0730 1! Inputs: 

; 450 0731 1! 

s 651 07 ¢ 1! name_desc: 

: ri 07 1! address of descriptor of symbol name 

; #45 0734 1! 

3 454 0735 1: value: 

3; 455 o7 39 1! symbol value 

; $28 0737 1! 

; 45 0738 1! msg_flag: ; 

; 458 0739 1! set if a message symbol and not a Literal 

; 459 0740 1! 

; 460 0741 1! tparse: 

: 461 Bes 1! address of tparse block, when present 

: 46 0743 1! 

; 46 0744 1! Outputs: 

> 464 0745 1! 

3; 465 0746 1! none 

: 466 0747 1! 

: 467 0748 1! 

; 468 0749 1 !-- 

; 469 0750 1 

: 470 0751 BEGIN 

3: 471 ters 

: «47 075 MAP 

3s 67 0754 comma : VECTOR, 

; 4764 0755 blank : VECTOR 

3: 475 0756 name_desc : REF VECTOR; 

; 476 0757 

: 477 3738 LOCAL 

3; 478 759 pre_dsc : VECTOR (2), 

; 479 0760 delim_desc : VECTOR C2], 

: 480 0761 buffer : VECTOR Cline_size, BYTE], 

; 481 154 buffer_desc : VECTOR $4 

; 48 076 faoout_desc : VECTOR C2), 

; 48 0764 faoout_buf : VECTOR Cline_size, BYTE], 

3; 484 0765 symbol_desc : VECTOR (2); 

; 485 0766 

3 oe6 076 : ; 

: 48 768 ! Make sure that we're not outside a module def'n 

; 488 re? : 

; 489 770 If NOT .mod_init 

: 490 0771 THEN 


ee — 


16 : 
v0e=800 VeSeoc}ORe QB:1L:HE  YaUeHTeLusycs2, yoo wet 


i 03) 448 omnes Ct (nofacil)) 

; syntax_error(.tparse, emsg(nofac ; 

; 49 774 RETURN true; ' ° 

> 494 775 END; 

; 495 br 76 

: 499 Orr 5 i st bol locall 

; ! Store new symbol name loca 

: 038 an13 abet a ' d : 

3 ( symbol_desc = ,mame_desc ; 

; 500 8789 symbol -desc HH} = ,name_desc abE 

; 501 o786 buffer_desc [1] = buffer; 

3 286 144 

; 784 : 

; 504 0785 ! Delimiter is a comma 

3; fe 0786 : 

: 506 0787 delim_desc (0) = 1; 

; for 0788 delim_desc [1] = .comma [1]; 

; 508 0789 

; 509 0790 ! 

; 510 0791 § ' Assume no special prefix 

3 313 ore : 

5 21g 079 § pre_dsc £0} = .prefix_desc [0]; 

ee 0794 pre_dsc Li] = .prefix_desc (1); 

3 514 0795 2 

3 319 0796 2! 

>; 516 0797 2 ! Check to see if it's a message def'n or not 

, Bi 0798 2! 

3; 2 0799 2 IF NOT .msg_flag 

; 519 0800 ¢ THEN 

: 520 0801 BEGIN 

s der 0802 3 LOCAL 

; 256 0803 3 checklen; 

. 2 0804 3 

; 356 $806 : C fi d first t of bol all th h 
3 ! Compare prefix an rst part of symbol all the way up to the 
3 258 Oabe ; first underscore . ‘ 

: 528 0809 5 IF (checklen = (CHSFIND_CH( .symbol_desc [0], .symbol_desc [1], '_") 
: 349 0810 3 = .symbol_desc (13)) LSs 0 

3 3 0811 3 THEN 

3 6S) oes 4 BEGIN 

: 238 0813 4 Byaten sever’. Aperat. emsg (noundrsc)); 

; pate 4 RETURN false; 

3 236 815 4 END 

3 3o9 0816 ; ELSE 

3; 336 0817 IF .checklen NEQ .prefix_desc(0] OR 

3 3o7 0818 3 CHSNEQ(.prefix_desc(OJ, .prefix_desc(1J], .checklen, .symbol_desc(1]) 
; i 0819 3 THEN 

, 39 0820 4 BEGIN 

; 540 ba5. 4 CHSMOVE(.checklen, .symbol_desc(1], .pre_dsc(1)); 

> 541 08 ¢ 4 pre.dsc C0] = .checklen; 

. a 

3; 544 0825 symbol_desc [0] = .symbol_desc [0] - .pre_dsc (0] - 1; ' Remove underscore from constant name since 
; 545 0826 syabol desc 1] = .symbol_desc [1] + .pre_dsc (OJ + 1; ‘ MUST have an underscore even for a nul 
Bde AEE dae 


F 16 
SDLGEN 16-Sep-1984 95:11:38 eel Bliss-32 V4.0-742 Page 17 
v04 14-Sep-1984 12:46:2 MSGFIL.SRCJSDLGEN.B32;1 (3) 
: 548 0829 IF .comment_const 
; 549 8 0 THEN 
; 550 0831 BEGIN ! Tack on comment if there is one... 
3 39) 08 § delim_desc £0} = 1; 
; 226 08 delim-desc [1] = .6lank (1); 
;. 35 0834 CHSFICL(* *, gn_of tset buffer); 
> 554 0835 buffer_desc [0] = con_offset; 
; 555 0836 CONCAT~( buffer_desc, const J; 
: Se ty sdl_put_record T buffer_desc 3; 
g for 0838 comment_const = false; 
> 558 0839 END; 
; 9 pete 
; 360 41 buffer_desc (0) = cname_offset; 
> 561 aK 
3 266 084 CHSFILL ( ' ', pre_offset, buffer ); 
; 0844 
; 564 P 0845 2 CONCAT ( buffer_desc, ! Start setting up output buffer 
; 565 P 0846 2 elim_desc, 
; 566 P 0847 2 dbl_quote, 
3 per P 0848 2 syabol desc 
: 568 0849 2 dbl_quote 5; 
; 569 0850 
3 350 +t8 § buffer_desc [0] = MAX ( equals_offset, .buffer_desc(0]); 
: 276 net IF_..value LEQU dectohex_switch 
s bY 0854 THEN 
; 574 0855 (CONCAT (buffer_desc, ul )) 
: of 0856 
: 576 0857 2 ELSE 
: Orr 0858 2 (CONCAT (buffer_desc, xl )); 
5 ore 0859 2 
3 ta peer ; buffer_desc [0] = MAX ( pre_offset, .buffer_desc(0]) ; 
3 3el P p86¢ CONCAT ( buffer_desc, 
s See P 0865 2 pre, 
3: 38> P 0864 2 dbl_quote, 
> «584 P 0865 2 pre_dsc, 
; 585 P 0866 dbl_quote, 
: 586 0867 tag ); ! Put sdl constant together 
; fer 0868 ‘ . 
; 588 0869 faoout_desc [0] = Line_size ; 
; 589 0870 faoout_desc [1] = faoout_buf; 
: 590 0871 
; 591 P pe7¢ $FAO ( buffer_desc, faoout_desc [0], 
$ 236 087 faoout_desc, ..value ); 
; 0874 
3; 594 0875 sdl_put_record( faoout_desc ); 
; 595 tA 
3 3% 87 RETURN true; 
3 597 0878 2 
; 0879 1 END; 
-EXTRN MSGS$_NOFACIL, MSG$_NOUNDRSC 
01FC 00000 -ENTRY SDL_DEFINE_CONSTANT, Save R2,R3,R4,R5,R6,- ; 0715 


i ee 


SPL GER 
v04-000 14-Sep 


58 49 CF 9E 0006 
E At CE 43 000 
11 0000' gr E8 0000C 
anetet F 0D 00011 
1 AC 0D SO OTA 
0000G CF 02 FB QOO1A 
O1ED 31 QOOIF 
50 046 AC BO 00022 1$: 
6E 60 7d 00026 
FF68 CD FF6C CD 9E 00029 
FO AD 01 OD B98 0 
F4 AD 3C AB 00 00034 
52 0000° gf DO 00039 
F8 AD 2 dO 0003 
FC AD 0000" CF DO 0004 
50 oc AC 5s 0004 
04 BE 6E SF BF OSA Bones 
02 12 0005 
51 D4 00054 
56 51 04 AE C3 00056 2$: 
11. 18 00058 
00000000G 8F DD 0005D 
10 AC DD 00063 
0000G CF 02 FB 00066 
O1A5 31 00068 
52 56 D1 OO06E 3$ 
QB 12 00071 
56 00 0000" ODF 52 2D 00073 
04 BE QO07A 
OA 13 0007C 
FC =6BD 04 BE 56 28 QOO7E 4$: 
F8 AD 56 00 00084 
50 6E F8 AD C3 00088 S$: 
6E FF AQ 9E 00080 
50 04 AE F8 AD C1 00091 
04 AE 01 AO YE 00097 
36 0000" CF €E9 Q009C 6$: 
FO AD 01 DO Q00A1 
F4 AD CC AB DO OO0AS 
FF6C CD 20202020 8F 00 QOOAA 
0094 CE 04 00 00083 
50 0094 CE FF68 CD C1 000B8 
60 of B8 o8 ef 000C 
0094 CE 68 CO 000C 
0094 CE 9F OOOCA 
0000v CF 01 FB BROCE 
0000" CF 94 000D 
cE 07 dO 00007 7$: 
6E 00 2c 000DC 
FF6C 8=6CD BROE 
cE FF68 CD 4 O0E4 
BD FO AD 28 Babes 
cE FO AD o Oat g 
56 D4 A& 7D QOOF 
CE FF68 0 C1 QOOFC 
67 6 28 00104 


p=198¢ 13:08 


18-Sep-1 


:38 AX-11 Bliss-32 V4.0-742 
6:2 MSGFIL.SRCJSDLGEN.B32; 1 
R7,R8 
CONST, RB 
-304(§P), SP 
MOD INIT 1$ 
#MSG$_NOFACIL 
TPARSE 
a3 SYNTAX_ERROR 
site fs 
(RO); Eeebor DESC 
aurrER. BUFFER. DESC +4 


DEL 
COMMAS adit DESC +4 
PREFIX DESC, R2 


PRE DS 
paer 1X DESC 34, PRE_DSC+4 
495, SYMBOL_DESC, @SYMBOL_DESC+4 


R1 
YRBOL _DESC+4, R1, CHECKLEN 
#MSG$_NOUNDRSC 
TPARSE 
SYNTAX_ERROR 
CHECKLEN, R2 
4$ 


R2, @PREFIX_DESC+4, #0, CHECKLEN, - 
gs YMBOL_ DEST+4 


CHECKLEN, Mares, _DESC+4, @PRE_DSC+4 


CHECKLEN, PRE_D 
PRE DSC, SYMBOL DESC, RO 
-1(RO), SYMBOL 

PRE Oe SYMBOL _DESC+4, RO 
1(RO), SYMBOL _DE 

COMMEN const 

Hi, DELIM pes¢ 

BLANK +4 Gein DESC+é 


38976288, 
FER 


CONST, “@CONST+4 (ROD 
CONST, BUFFER_DESC 
BUFF FFER DES 

SDC. PUT_RECORD 
CohmeuT “CONST 


#7, BUFFER 
5° #40, BUFFER 


#0; (SP), 

BUFFER SC+4, BUFFER DESC, RO 
DELIM_BESC, LIM ~DESE#S, (RO) 
DELIM~DESC. SUFFERS DESC 

DBL_a0 R6 

BUFFER §c+4, BUFFER_DESC, RO 
R6, (R7), (ROS 


DE 
BES 
DES 
OTE 
Rese 


Be te Se Be Se 


See Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Be Se Se Se Be Be Se Se Se Se Be Se Be Se Se Be Se Se Se Be Be Se Ge Ge Be Ge Fe Fe Se Be Se Se ee 


| H 16 
$ - 211: AX-11 Bi fog -32 V4.0-74 Page 19 
ob7 e600 12: a 1382 $ 18:38 MSGFIL.SRCISDLGEN.B32: (3) 
094 CE 56 ¢O 00108 Mite RG, BUFFER_DESC ; 
FER_DEST+4, BUFFER_DESC, RO 3 
te ae ee ae 28 20195 move SYMBOL DESC, SsTMBOL 'BESCs4, "(ROD 
50 itn cE FF68 tb OO1Tt ADDL BUFFER DESC #4, BUFFER_DESC, RO ; 
- 0094 4 3 6 Mit B ADDL2 6, BUFFER_DESC ; 
&f 0094 DO 00130 MOVL BUFFER DEST, RO ; 0851 
i 3 ; 
2 45 BS IEE os, ABIES? esc : 
ant FF68 20 e Mitte ADDL3 BUFFER_ DESte4 BUFFER_DESC, RO : 0855 
™ oooorerr iF 08 BC D1 00144 CMPL aVALUE’ #65535 ; 0853 
11 «1A : 
' ' , @UL+4, (RO) : 0855 
es Boon OE tate ef 28 ie Ete ADDL? UC BUF FER_DESC ; 
wer ame: AB eB A anne, on 10 
eo 8098 CE~—Oo00" EF EO OOteD ADDL2 XL’ BUFFER DESC (par 
50 0094 CE D0 00174 10$: ##MOVL BUFFER DEST, RO ; 086 
-™ 83 88 bolre sors 
20 es OO oOo 118 MOVE Mm mS ER_DESC : 
50 er ce FF68 2D at $018 ADDL SUFFER DEST ®« BUFFER, DESC, RO ; 0867 
- 0094 BP 19 AB 6 $0194 ADDL PRE: BUF PEER DESC : 
50 0094 CE FF68 gd 3 esis ADDL BUFFER, gtr BUFFER_DESC, RO ; 
60 67 
R6, BUFFER DESC : 
a a es : 
” ae 4 BUFFER DESC : 
0 en te FFbS oD £0 OO iB ADDE BUFFER beet es BUFFER_DESC, RO 3 
20 67 56 28 001C7 moves Ro, (7) (R RO} 
50 ier cf FF68 7} 6 09109 ADOL$ BUFF ER DESESS, apyrFen. DESC, RO ; 
” 0034 Be st AB 6 BODE ADDL2 TAG, BUFFER DESC pe 
008c «CE 84 BF SA OO1E4 MOVZBL #132, FAOOUT DES ; 0869 
08 AE 99E OO1EA OVAB  FAQOUT_BUF, FAOOUT_DESC+4 ; 08 
cae he 08 BC DD 001F0 PUSHL aVALUE~ ; 0873 
0090 CE 9F O1FS PUSHAB FAOQOUT_DESC 
0094 CE 9F Sore PUSHAB FAQOUT~DESC : 
FF64 CD OF OO1FB PUSHAB BUFFER DESC : 
meme wae he a SUSHAB FASOUT DE Ec ‘9875 
eet BBS Bae an, GES He gue necom osm 
veg As Pees ge Dee 
04 00215 ~  _—si RET : 


; Routine Size: 534 bytes, Routine Base: $CODE$ + 0202 


¥O4=600 71984 93:45:28 UmSGriu SRESSDLGEN: B32; tome 


MSGF SDLGEN.B32; 


; 600 0880 1 GLOBAL ROUTINE sdl_end_mod = 

; 601 0881 1 

; 60 pees } ie 

; 60 885 1! 

; 604 0884 1! 

; 605 0885 1! This routine outputs a semicolon and an END_MODULE statement 
; 606 0886 1! to the sdl file to end the constant definitions for a 

: 607 ett 7, | facility. Note that if the flag comment_const is true, 
; 608 888 1! a semicolon has already delimited a constant string, so 
: 609 0889 1! simply output END MODULE. This routine also resets 

; 610 0890 1! flags to prepare for more facility definitions. 

> 611 0891 1! 

; ol¢ +324 1! Inputs: 

; 61 0895 1! 

> 614 0894 1! none 

; 615 0895 1! 

; 616 0896 1! Outputs: 

; 617 0897 1! 

> 618 0898 1! none 

; 619 0899 1! 

: 620 0900 1 !-- 

; 621 0901 1 

; 622 0902 2 BEGIN 

; 623 0903 2 

; 624 0904 2 LOCAL : 

3 62> 0905 2 buffer : VECTOR Cline_size, BYTE], 

> 626 0906 2 buffer_desc : VECTOR (2); 

; $s? 0907 2! war 

; 628 0908 2! If this is the first facility, simply return. 

: 629 0909 2! F 

; 630 0910 2 IF NOT .mod_init 

; 631 0911 2 THEN 

; 632 0912 2 RETURN true; 

3 $35 0913 2 

; 634 0914 2! 

: § Reset flags to prepare for a new module 

3 2 mod_init = false; ! Currently no active modules 

3 current_offset = 0; : restore indentation level for sdl output, 
; scbs_saved = false; ; there are no saved SDL comment blocks. 
; buffer_desc C1] = buffer; 

; CHSFILL ( ° °, cname_offset, buffer ); 

. ! 

3 : If the facility didn't end with commeits, we need to add a semicolon 
: } to delimit the constants 

: IF NOT .comment_const 

3 THE 

: BEGIN 

; buffer_desc [C0] = cname_offset; 

; CONCAT ( buffer desc, semicolon ); 

; : pel put record T buffer_desc ); 


J 16 
6-Sep-1984 02:11:3 AX-11 Bliss-32 V4.0-742 
4 Sep 1984 aE MSGFIL.SRCJSDLGEN. B32; 1 


! 

Now add the END_MODULE 

buf ter ~desc CO] = mod_offset ; 
CONCAT ( buffer_desc “endnodule 3 


sdl_put_record T T buffer_d ); 
sdl[put_record ( UPLIT r DESC ('"))); 


' 
} Reset the comment_const flag now that we're done with it 


comment_const = false; 
RETURN true; 
1 END; 


leflelelelelelelelelelelelelelolea) 
ODOOOOOOOOOOOOOODO 
DIDS EY BBE BB EEE EAI 
MO CONOUFSWWH—O0OO~ 


Sete Ge Ge eee Se Ge Ge Ge Ge Ge Ge Ge Ge ee 


-PSECT SPLITS,NOWRT,NOEXE,2 


20 0012C P.ABU: ASCII \ \ 
00120 -BLKB 3 
00000001 00130 P.ABI: <LONG 17 
00000000" 00134 “ADDRESS P.ABJ 
.PSECT $CODE$,NOWRT,2 
01FC 00000 .ENTRY SDL_END_MOD, Save R2,R3,R4,R5,R6.R7,R8 
58 9000V CF 9E 00002 MOVAB SDL“PUT-RECORD, R8 
57 0000' CF 9E 00007 MOVAB MOD INIT, 
6 0000' CF 9€ 0000C MOVAB SEMICOLON, R6 
SE FF74 cE 9E 00011 MOVAB =-140(SP), 
4E 67 £9 00016 BLBC MOD_INIT, 2 
67 94 00019 CLRB  MOD7INIT 
FC A? D4 00018 CLRL  CURRENT_OFFSET 
F8 A? 94 OOOIE CLRB  SCBS_SA 
AE 08 AE 9E 00021 MOVAB BUFFER, BUFFER_DESC+4 
6E ia 00 2¢ 00 6 MOVCS #0, (SP), #32,7#7, BUFFER 
15 01 A? €E8 00020 BLBS § COMMENT_CONST, 1$ 
6E 07 DO 00 1 MOVL. #7, BUFFER RADESC 
6E 04 AE C1 4 ADDL3 BUFFER _DESC+ FFER DESC, RO 
R6 66 28 00039 MOVC SEMICOLON: asém PE OLONT A (RO) 
6E 66 CO 0003E ADDL2 SEMICOLON, BUFFER_DESC 
5E DD 00041 PUSHL SP 
68 ay FB 0043 CALLS #1, SDL_PUT_RECORD 
6E 01 DO 00046 1$: MOYL #1. BUFFER ESC 
6E£ 06 =A cI 0049 ADDL3 BUFFE N OEStea BUFFER_DESC, RO 
B6 16 Ab 4 004E MOVC ENDMODOLE’ SENDRODULETS. (RO) 
a4 14 Ad C 0094 ADDL2 ENDMODULE, BUFFER_DESC 
5E DD 00058 PUSHL SP 
68 07 FB O0005A CALLS #1, SDL_PUT_RECORD 
0098 C6 9F 0005D PUSHAB P, 
68 01 FB 00061 CALLS #1, SDL_PUT_RECORD 


Page 21 
. (4) 


; 0880 


SBLSEN, 1$-200-1984 93:10:58 YAGI, Ob fegc82 y4-05742 


01 A? 94 CLR COMMENT_CONST 
50 01 b? 20067 2$: MOVE it RO ~ 
4 6A RET 


; Routine Size: 107 bytes, Routine Base: S$CODES + 04E8 


16 
SDLGEN 1-56-1984 AX-11 Bliss-32 V4.0-74 Page 23 
04- 14- ety 7 0il8 +3 MSGFILCS RCJSOLGEN.832; . (33 
; 674 0953 1 GLOBAL ROUTINE sdl_comment ( comment_desc, new_line_flag ) = 
; 675 goed 1 
: or 955 1 ++ 
; of 8328 1! 
; 678 957 1 
; 679 B28 4 This routine outputs a Line of comment into the SDL file. 
; 680 959 1! If the current comment comes between two SDL constants, 
; 681 0960 1! the constant List must be ended for the comment an 
; 68 0961 1! resumed when there are no more comments. 
; 68 B208 1! 
; 684 0963 1! 
; 685 Bote 1! Inputs: 
; ¢ 965 1! 
; 687 0966 1! comment _desc 
; 688 0967 1! "Geccrteter for comment Line 
: 689 0968 1! ‘ 
; 690 0969 1! newline, flag: 
>; 691 0970 1! set if comment should be placed on a new Line 
; 69 0971 1! 
; 69 0972 1! Outputs: 
> 694 0973 1! 
; 695 0974 1! none 
>; 696 0975 1! 
: 697 0976 1! 
; 698 0977 «1 
; 699 0978 2 BEGIN 
: 700 0979 2 
: 701 0980 § MAP 
; re 0981 comment _desc : REF VECTOR; 
: 703 0982 2 
; 2 098 § LOCAL 
3; 705 0984 buffer : VECTOR R Eyine_ size, BYTE), 
; 0985 2 buf fer_desc : VECTOR (2); 
; 707 0986 
; 08 0987 buffer_desc C1] = buffer; 
; 709 0988 : 
: 710 0989 2! Can't intermix comments and constant express tons in SDL: 
: 711 0990 2! if the variable ‘‘current_offset'’ has a value > 4 then 
; ne 0991 2! sdigen is in the middle Of defining constants. 
2 099 ! 
3; 714 099 : 
; 715 0994 IF (.current_offset GTR 4) AND (NOT .comment_const) 
: 716 0995 THEN 
s 717 8398 BEGIN 
s 78 99 CHSFILL( ° -current_offset, buffer); 
; 719 0998 buf fer_desc ‘toj = .current_of ffset; t; 
: 720 0999 CONCATT oe Bg des. semicolon ); 
: 721 1000 comment_const = tru 
: os6 1001 aH =Put. “record (buffer. desc); 
s 2 100 END 
3 724 100 
3; 725 1004 alas dea C0) = 0; 
3; 726 1005 ; 
: 7a? 1006 IF NOT .new_Line_flag 
: 728 100 THEN 
: C4 1908 BEGIN 
; 730 100 buffer_desc [0] = comment_skip; 
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; 731 1010 CHSFILL ( ' ', comment skip, buffer); 

: f ¢ 1013 END; 

: 4 3 1918 CONCAT ( buffer_desc, sdlcomment, .comment_desc ); 

3; 736 1015 

3 ete 1918 ! If the module is not yet initialized, then the comment just 

; 738 101 ! encountered must be saved until a module declaration can be 
; 739 1018 ! made. Set up a Linked List to save the comments. 

; 740 1019 ' 

3: 741 1020 

3; 74 1021 IF NOT .mod_init 

: 74 10 ¢ T 

: 744 10 BEGIN 

; 745 1024 

: 746 1025 ; LOCAL 

: 747 1026 status, 

3 be ost ; CBLOCK: REF BLOCKC,BYTE); 

; 750 1029 3 status = LIBSGET_VM(ZREF (SCBSC_LENGTH + .buffer_desc(0J), CBLOCK); 
; 751 1030 3 IF .status 

; PE 1031 3 THE 

; 7 138 4 BEGIN 

s 756 1033 4 

3; 755 1034 4 ! % 
s 756 1035 4 ! This is the first comment encountered--set up Linked List 
.: Far 1036 4 ! 

; 758 1037 4 IF NOT .scbs_saved 

; 759 1038 4 THEN 

: 760 1039 5 BEGIN 

: 761 1040 5 scb_head = ,CBLOCK; 

: 762 1041 § Last_scb = ,CBLOCK; 

; 763 1065 5 scbs_saved = true; 

> 764 1043 5 END 

s es 1044 5 

; 766 1045 5 ! 

s 767 1046 5 ! Else this is at least the second comment Link--set the 
: 768 1047 5 ' forward ptr of the Last block to point here. 

; 769 1048 5 ! 

: 770 1049 4 ELSE 

: 771 1050 5 BEGIN 

Oe gs 1051 5 -last_scb = .CBLOCK; ' Setpointer of last block to this block 
: 775 1936 5 Last_scb = .CBLOCK; i Now point to this block 
; 776 192 4 END;~ 

3 75 1054 4 

: 776 1055 4 ! 

fer 1056 4 i Now set the current next Link to 

: ore pat : i fill in this scb with the sareont comment string 
; 780 1986 4 CBLOCK tScBse- NXTSCB) = 0; 

s el 1060 4 CBLOCK CLEN] = .buffer_desc (0); 

; 782 1061 4 CHSMOVE (.buf At desc £93. 

: 783 1306 4 .buffer-desc (1), 

; 784 1063 4 CBLOCK [SCB$T_CTXT) ); 

; 785 1064 4 END 

: 786 1065 4 

: 787 1066 4 ‘ 


7 
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} 
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16-Sep-19 211: AX-11 ss-32 V 3547 
14- set 7 95:1 4:38 MSGF I ies ne isorctn ig B32 z1 
! If no virtual memory available in which to save comments 

} (hopefully a rare occurrence) then signal that condition 


ELSE ' 
SIGNAL ( .status ); 


END 


If module has been declared and we're not in the midst of a 
string of constants, output the comment. 


(ost ee 


ELSE 


sdl_put_record ( buffer_desc 
IF NOT .new_ Line _flag THLN true ELSE false ); 
RETURN true; 


END; 
01FC 00000 eENTRY SDL Dang Save R2,R3,R4,R25,R6,R7,R8 
58 0000" CF 9E 00002 MOVAB SENT COLO , RB 
57 0000' CF 9€ 00007 MOVAB LAS 1 sta 7 
5E FF6C CE 9E 0000C MOVAB <-148TSP). SP 
Oc AE 10 AE 9E 00011 MOVAB BUFFER, BUFFER_DESC+4 
56 08 A? 00 00016 MOVL CURRENT _OFFSET; R6 
04 56 D1 OOO1A CMPL ~=sR6, 
2a 15 0001D BLEO 
26 OD A? EB OOOTF BLBS | COMMENT_CONST, 1$ 
20 6E 00 2C 00023 MOVCS #0, (SPY, #32. R6, BUFFER 
10 AE 00028 
08 AE 56 DO O002A MOVL. 6, BUFFER_D SC 
50 08 AE Oc AE cI 000¢E ADDL3 BUFFER set UFFER DESC. RO 
60 04 B88 68 28 00034 MOVC3 SEMICOLON, asénicoLonss, (RO) 
08 AE 68 CO 00039 ADDL2 SEMICOLON, BUFFER_DESC 
OD A? 01 90 0003p VB 1, COMM 
08 AE 9F 00041 PUSHAB BUFFER D 
0000v CF 01 FB 00044 CALLS SDC_PUT_RECORD 
08 AE 04 00049 1$: CLRL SutF 
0B 08 ac €E8 0046 BLBS NEW.LI LINE eft Ae 28 
08 AE 5 pO 00050 MOVL @# R pesc 
20 6 00 2c 0094 MOVCS #0. dt B32, #5, BUFFER 
50 8 AE OC AE C1 tees 2$: ADDL3 BUFFER_DESC+4, BUFFER_DESC, RO 
60 4 B88 30 As 28 00061 MOVC3 SDLCOMMENT, aSD LCOMmERT#4. (RO) 
08 AE 30 AaB CO 00067 ADDL2 SDLCOMMENT, BUFF C 
56 04 AC dO 0006C MOYL COMMENT DESC 4g 
50 08 AE€ OC AE C1 00070 ADDL3 BUFFER RBDESC +4 Soren _DESC, RO 
60 04 B6 66 28 00076 MOVC (R6), B4(R6), (RO) 
08 AE 66 CO 0007B ADDL2 (R6) SUITE £ 
4D o UA f O7F BLBS MOD gitit 6$ 
04 AE SF 00083 . PUSHAB cBLOC 
AE Oc AE 05 C1 00086 ADDL3 # BUFFER _DESC, 4<SP) 
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230 bytes, Routine Base: S$CODE$ + 0553 


|; Routine Size: 


. 1 
 SDLGEN 16-Sep-1984 02:11: AX=11 Bliss-32 V4.0-742 
iV $500 1e-8ep-1984 HP Me re ag Sh. SDLGEN.B32: 1 


i old Status 
rms_error (emsg(writeerr), sdl_fab, sdl_rab); ! if error, report it 


cutput desc (0) = .record_desc [0]; 
CHSMOVE ( .record_desc (OJ, .record_desc [1], .output_desc (1)); 


RETURN status; 
END 


(G2. Cd Cd Gd Cp Cd GD CD Co Cd OD Co 
DAAAAIMN VII & 


WN —O OONO WU fwh—O 0O@ 


yt ot-4 


' modify buffer by 
CONCAT ( output_dest, .record_desc ); ! appending new record 


3 


; B09 19 $ : GLOBAL ROUTINE sdl_put_record ( record_desc, append_to_buffer_flag ) = 
3 10 + 8 1 !++ 
: $12 1990 1 i Thi ti d he SDL fil 
; : Ss routine outputs a record to the SDL e. 
: Big 1091 1: 4 
\3 814 1036 1! Inputs: 
gs 895 1095 1! 
; 816 1094 1! record_desc: 
: aif 130? : descriptor of the record to be buffered 
; 819 1099 1! append_to_buffer_flag: 
; ast 1096 1! set if buffer should be lengthened. 
; 821 1099 1! 
; asé 1100 1! 
; 82 1101 1! Outputs: 
; 824 1106 4 
: Ses 1103 1! none 
; 826 1106 1! 
; 827 1105 1 !-- 
; 828 1106 1 
: S¢3 1107 2 BEGIN 
; 830 1108 2 
; «831 1109 2 MAP 
; oa 1110 2 record_desc : REF VECTOR; 
; 833 1111 $ 
; 834 1346 BUILTIN 
; 835 111 2 NULLPARAMETER; 
; 836 1114 2 
; 837 1115 LOCAL 
; 838 1116 status; ! status code 
; 839 1117 
; 840 1118 2 IF .sdl_fab Cfab$Sw_ifi] EQ. 0 ! if file unopened, then exit 
; «841 1119 2 THEN 
; «84 1120 § RETURN true; 
; 84 1121 
: 844 1122 2 IF NULLPARAMETER(2) ! new Line flag not input or null 
; 845 1123 THEN 
; 846 1124 BEGIN 
; 847 1125 sdi_rab Crab$w_rsz] = .output_desc 03: ! output and reset buffer 
; 1158 ; sdl_rab Crab$l_rbfJ = .output_desc [1]; 
5 1368 status = $PUT (RAB = sdl_rab); ! output Line 
1180 
: 1131 
3 1136 
3 113 
3 1134 
; 1135 
: 1136 
: 113 
; 1138 
: 1139 
: 1140 EL 
2 1141 
: 1142 


] 
1 
SDLGEN shese -1984 02:11: AX-11 Bliss-32 V4.0-74 Page 28. 
v04- be aets 05: 1hi38 MSGFIL. BR RCISDLGEN. B32; , (6) | 
; 865 1143 RETURN true; 
: 866 1144 END; 
: B68 1146 1 END: | 
| 
.EXTRN SYSS$PUT 
OOFC 00000 -ENTRY SDL. PUT_RECORD, Save R2,R3,R4,R5,R6, R7 : 1086 
57 Q000G CF 9E 80006 MOVAB : 
56 0000' CF 9 9000 MOVA OUTPUT DESC, R6 : 
5€ 4 C2 0000C SUBL p~ : 
00006 gf BS OOOOF TSTW SDL _FAB+2 : 1118 
5 13 00013 BEQL 4$ ~ : 
52 046 AC 00 00015 MOVL RECORD_DESC, R2 : 1135 
02 6C 91 00019 CMPB (AP), #2 : 1122 
05 1F OOOIC BLSSU 1$ F 
08 AC D5 OOO1E TSTL 8(AP) : 
38 12 00021 BNEQ 3 ; 
22 «A? 66 BO 00023 1$: MOVW OUTPUT_DESC, SDL_RAB+34 + 1125 
28 «OA? 04 A6 DO 00027 MOVL OUTPUT “DESC+4, SBL_RAB+40 : 1126 
57 DD 0002C PUSHL R7 3: 1128 
000000006 00 01 FB itd CALLS #1, SYSS$PUT : 
6E 50 pO 00035 MOVL RO, STATUS : 
11 6€ E8 00038 BLBS STATUS, 2$ : 1130 
57 DD 00038 PUSKL R7 : 1132 
00006 CF 9F 0003D PUSHAB SDL_FAB : 
00971002 8F DD 00041 PUSHL #990024 3 
0000G CF 03 FB 00047 CALLS #3, RMS_ERROR : 
66 04 BC DO 0004C 2s: MOVL @RECORD_DESC, OUTPUT_DESC + 1134 
04 B86 04 B2 04 BC 28 00050 MOVC3 @RECORD-DESC, @4(R2)> G@OUTPUT_DESC+4 : 1135 
50 6E 9E 00057 MOVAB STATUS, RO s 11357 
04 0005A RET + 1141 
50 66 04 Ab C1 0005B 3$: ADDL3 OUTPUT_DESC+4, OUTPUT_DESC, RO : 1142 
60 04 = B2 04 BC 28 00060 MOVC3 @RECORD_DESC, a4(R2),~(RO) : 
66 04 BC CO 00066 ADDL2 a@RECORD_DESC, OUTPUT_DESC : 
50 61 DO O006A 4$: wi, RO ™ > 1143 
04 0006D RET : 1146 
; Routine Size: 110 bytes, Routine Base: $CODE$ + 0639 
3; 869 1147 1 END 
; 870 1148 0 ELUDOM 
-EXTRN LIBSSIGNAL 
; PSECT SUMMARY | 
5 Name Bytes Attributes 
; SOWNS 36 
> $PLITS 3 NOVEC.NOWRT, RD .NOEXE,NOSHR, REL, 


| 

NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL. piankhe ied Lovg bot ft 
LCL, CON,NOPIC ,ALIGN(2) 

i 

| 


iecSepc}98¢ 93:14:38 


AX-11 Bliss-32 V4.0- 3509 
MSGFIL.SRCJSDLGEN.B32; 


SCODES 1703 NOVEC,NOWRT, RD , EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
Library Statistics 
pen amend Syahel§ ecccesce Pages Processing 
File Total Loaded Percent Mapped Time 
_$255$DUA28: CSYSLIBISTARLET.L32;1 9776 22 0 581 00:01.0 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=L1IS$:SDLGEN/OBJ=OBJ$:SDLGEN MSRC$:SDLGEN/UPDATE=(ENH$: SDLGEN) 


Size: 1703 code + 648 data bytes 
Run Time 00:31.0 

Elapsed asi } 01:24.3 

Lines/CPU Min: 2221 


Lexemes/CPU-Min: 28127 
pane Used: 218 pages 
Compilation Complete 


BA 


P52 AH-BT13A-SE L EQUIPMENT CORPORATION 


VAX/VMS V4.0 ENTIAL AND PROPRIETARY 


0253 SH-BT13A- SE | | T CORPORATION 
J0J3 VAX/VMS V4.0 | PROPRIETARY 


